BEGIN "TEST1"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	REQUIRE "GEOMED.HDR" SOURCE_FILE;
	INTEGER B1;
	MKUNIV;
	B1 ← INB3D("KNOT");
	GEODPY;INCHRW;
	B1 ← INB3D("JACK[DAT,BGB]");
	GEODPY;INCHRW;
	B1 ← INB3D("DODECA[DAT,BGB");
	GEODPY;INCHRW;
	WHILE TRUE DO BEGIN ROTATE(B1,π/40,π/30,π/20);GEODPY; END;
END;